home *** CD-ROM | disk | FTP | other *** search
/ Computer Life: SuperPac / SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO / pc / demos / wincim / scripts.lib / DATAPAC.SCR < prev    next >
Encoding:
Text File  |  1994-12-29  |  1.2 KB  |  59 lines
  1. !
  2. !  Copyright (c) 1994
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  DATAPAC:
  9. !    Connect to DataPac
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.5.2"
  15. !-V
  16.  
  17. show "Connecting to DataPac";
  18. Tries = 5;
  19. on cancel goto Return_Cancel;
  20.  
  21. Wait_DataPac:
  22.     if Tries = 0 goto DataPac_Failure;
  23.     Tries = Tries - 1;
  24.  
  25.     wait
  26.         "Connected"    goto Return_Success,
  27.         "Invalid"    goto Wait_DataPac,    ! Try again.
  28.         "DataPac"    goto Send_DataPac_Host
  29.     until 15;
  30.  
  31.     send "..." & %CR;
  32.     goto Wait_DataPac;
  33.  
  34. Send_DataPac_Host:
  35.     wait until 10;
  36.     send "29400138" & %CR;
  37.  
  38. Wait_For_Connect:    ! Second wait loop will not match DataPac.
  39.     if Tries = 0 goto DataPac_Failure;
  40.     Tries = Tries - 1;
  41.  
  42.     wait
  43.         "Connected"    goto Return_Success,
  44.         "Invalid"    goto Wait_For_Connect    ! Try again.
  45.     until 30;
  46.  
  47.     send "..." & %CR;
  48.     goto Wait_DataPac;
  49.  
  50. DataPac_Failure:
  51.     define %FailureMsg = "DataPac not responding";
  52.     exit %Failure;
  53.  
  54. Return_Cancel:
  55.     exit %Cancel;
  56.  
  57. Return_Success:
  58.     exit %Success;
  59.